1 PRINT"[147][159]"
2 PRINTTAB(9)"[201]NSERT [204][207][193][196][211][212][193][210] #50[159] [211]IDE 3[159]"
3 PRINTTAB(14)"AND PRESS [210][197][212][213][210][206][146]"
4 GETA$:IFA$<>CHR$(13)THEN4
5 PRINTTAB(8)"[156][197] [216] [212][160][197][160][210][160][205][160][201][160][206][160][193][160][212][160][201][160][206][160][199]!!!"
10 Q$=CHR$(34):F$="CALENDAR MAKER"
20 PRINT"[158]LOAD"Q$F$Q$",8"
30 PRINT"2 POKE55,0:POKE56,140:CLR:POKE53272,56:POKE56576,1:POKE648,140"
40 PRINT"15010 POKE53272,21:POKE56576,199:POKE648,4:?"Q$"[147]"Q$
100 PRINT"OPEN15,8,15,"Q$"S0:"F$Q$":CLOSE15:SAVE"Q$F$Q$",8"
110 PRINT"O[208]15,8,15,"Q$"I0"Q$":O[208]2,8,2,"Q$"#"Q$":P[210]15,"Q$"UA:2 0 25 16"Q$;
115 PRINT":PRINT#15,"Q$"B-P:2 3"Q$
120 PRINT"PRINT#2,CHR$(160);:PRINT#15,"Q$"UB:2 0 25 16"Q$":CLOSE2:CLOSE15"
130 PRINT"";
140 FORI=631TO640:POKEI,13:NEXT:POKE198,10
150 NEW